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OpenQ = if not open then 

open:=true 
CloseQ = if open and counter<Max then 
open:=false 
counter:=counter+1 
if open and counter=Max then 
open:=false 
counter:=0 
SetMax() = iftrue then 
counter:=Max 
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